home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
bbs
/
mhis020.zip
/
CALLINFO.MH
< prev
next >
Wrap
Text File
|
1996-09-06
|
987b
|
45 lines
#ifndef __CALLINFO_MH
#define __CALLINFO_MH
long time_online (Ref struct _callinfo: ci) {
return (stamp_to_long (ci.logoff) - stamp_to_long (ci.login));
}
string flag_string (int: call_flags) {
string: result;
result := "";
if (call_flags = 0) {
return "none";
};
if (call_flags & CALL_LOGON) {
result := result + "L";
};
if (call_flags & CALL_CARRIER) {
result := result + "C";
};
if (call_flags & CALL_EJECTED) {
result := result + "E";
};
if (call_flags & CALL_PAGED_AH) {
result := result + "P";
};
if (call_flags & CALL_DLEXCEED) {
result := result + "D";
};
if (call_flags & CALL_EXPIRED) {
result := result + "X";
};
if (call_flags & CALL_TIMELIMIT) {
result := result + "T";
};
if (call_flags & CALL_NERD) {
result := result + "N";
};
if (call_flags & CALL_BARRPWD) {
result := result + "B";
};
return result;
}
#endif